home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / HyperStacks Folder / Samples from the CD / Education / Birds / card_2546.txt < prev    next >
Text File  |  1988-05-20  |  3KB  |  131 lines
  1. -- card: 2546 from stack: in
  2. -- bmap block id: 101072
  3. -- flags: 4000
  4. -- background id: 2295
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=308 top=169 right=226 bottom=361
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 22308 / 22308
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: First Bird
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to next card
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 3 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=464 top=36 right=70 bottom=500
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 11045 / 11045
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Home
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   visual effect dissolve slowly
  42.   doMenu Home
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 4 (button)
  48. -- low flags: 00
  49. -- high flags: 2000
  50. -- rect: left=306 top=23 right=53 bottom=343
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 19678 / 19678
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: About
  59. ----- HyperTalk script -----
  60. on mouseDown
  61.   show card field "About"
  62. end mouseDown
  63. on mouseUp
  64.   hide card field "About"
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 6 (button)
  70. -- low flags: 00
  71. -- high flags: 8000
  72. -- rect: left=309 top=244 right=296 bottom=359
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 1004 / 1004
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Make List
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   -- export text
  84.   answer "Really Make Text File?" with Yes or No
  85.   if it is "No" then exit mouseUp
  86.   answer "Full List or Life List?" with Full or Life
  87.   if it is "Life" then put true into doLife
  88.   else put false into doLife
  89.   if doLife is true then put "Life List" into fileName
  90.   else put "Bird List" into fileName
  91.   ask "Put list into what file?" with fileName
  92.   if it is empty then exit mouseUp
  93.   put it into fileName
  94.   open file fileName
  95.   go to second card
  96.   put the number of cards into numCards
  97.   put numCards - 1 into numCards
  98.   repeat with i = 1 to numCards
  99.     if doLife is false or hilite of button "Life List?" is true then
  100.       write field "Bird Name" to file fileName
  101.       write return to file fileName
  102.     end if
  103.     go to next card
  104.   end repeat
  105.   close file fileName
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (field)
  111. -- low flags: 80
  112. -- high flags: 0004
  113. -- rect: left=275 top=159 right=331 bottom=397
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 4
  118. -- text size: 9
  119. -- style flags: 0
  120. -- line height: 11
  121. -- part name: About
  122.  
  123.  
  124. -- part contents for card part 5
  125. ----- text -----
  126. This stack is shareware. Feel free to modify it, but do not remove this card if you pass it on. If you like this stack and decide to keep it, please send $2 to:
  127.    Jeff Myers
  128.    Coqu√≠ Graphics
  129.    305-D Eagle Hts.
  130.    Madison, WI
  131.             53705